home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
500 MB Nyheder Direkte fra Internet 9
/
500 MB nyheder direkte fra internet CD 9.iso
/
start
/
zipped
/
win
/
visbasic
/
playwavz.exe
/
PLAYWAV.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-12-02
|
328b
|
13 lines
Option Explicit
'SndPlaySound is the API call to (obviously) play the WAV file passed to it
Declare Function sndPlaySound Lib "mmsystem" (ByVal FileName$, ByVal SND_ASYNC%) As Integer
Global Const SND_SYNC = &H0
Global Const SND_ASYNC = &H1
'Common Dialog Control
'Action Property
Global Const DLG_FILE_OPEN = 1